/* isProc.asm
 * Tests whether its argument is boolean
 *
 * 
 */

CAR:
  PUSH(FP);
  MOV(FP,SP);
  MOV(R0, FPARG(2)); //R0 = arg0
  CMP(IND(R0), IMM(T_PAIR));
  JUMP_NE(TYPE_ERROR);
  MOV(R0, INDD(R0,1));
  POP(FP);
  RETURN;

